function AnalyseCoAuthorsEditors(n2)

% n2=84;

ValueFolder='/sps/isc/rneveu/EtudeIRM/Nature/';
ValueFolder2='/sps/isc/rneveu/EtudeIRM/Nature/ResultsEditor/';
load([ValueFolder 'DonneesNature.mat']);
load([ValueFolder 'EtudeNature.mat']);
VecEditors1Temp(1,:)=[];
ValueFile=['ResultsCharacteristicsEditor' num2str(n2) '.mat'];
ValueFileTemp=dir([ValueFolder2 ValueFile]);
if n2<=size(VecEditors1Temp,1)&&size(ValueFileTemp,1)==0
    [VecResultsMean1,VecResultsMean2,VecResultsMean3]=ComputeMean(VecEditors1Temp);
    VecEditors1Temp=ReplaceMissingValues(VecEditors1Temp,VecResultsMean1,VecResultsMean2,VecResultsMean3);
    VecDate={'Jan' 'Feb' 'Mar' 'Apr' 'May' 'Jun' 'Jul' 'Aug' 'Sep' 'Oct' 'Nov' 'Dec'};
    VecArticleType={'Academic Dissertation' 'Adaptive Clinical Trial' 'Clinical Trial' 'Comparative Study' 'Controlled Clinical Trial' 'Equivalence Trial' 'Evaluation Study' 'Journal Article' 'Meta-Analysis' 'Multicenter Study' 'Observational Study' 'Pragmatic Clinical Trial' 'Randomized Controlled Trial' 'Review' 'Statistics' 'Technical Report' 'Systematic Review' 'Twin Study' 'Validation Study'};
    VecArticleType2={'Review' 'Systematic Review'};
    VecA=192:1:198;
    VecA=[VecA 65];
    Veca=224:1:230;
    Veca=[Veca 97];
    VecC=[199 67];
    Vecc=[231 99];
    VecE=200:203;
    VecE=[VecE 69];
    Vece=232:1:235;
    Vece=[Vece 101];
    VecI=204:207;
    VecI=[VecI 73];
    Veci=236:1:239;
    Veci=[Veci 105];
    Vecn=[241 110];
    VecO=210:214;
    VecO=[VecO 216 79];
    Veco=242:1:246;
    Veco=[Veco 248 111];
    VecU=217:1:220;
    VecU=[VecU 85];
    Vecu=249:1:252;
    Vecu=[Vecu 117];
    VecY=[221 89];
    Vecy=[253 121];
    Vecs=[223 115];
    VecSpecialCharacters=[{VecA} {Veca} {VecC} {Vecc} {VecE} {Vece} {VecI} {Veci} {Vecn} {VecO} {Veco} {VecU} {Vecu} {VecY} {Vecy} {Vecs}];
    ValueClock=clock;
    disp(['Start of the processing at ' num2str(ValueClock(1,4)) ':' num2str(ValueClock(1,5)) ':' num2str(ValueClock(1,6)) ' for editor ' num2str(n2)]);
    ValueDate1=VecEditors1Temp{n2,4};
    ValueDate2=VecEditors1Temp{n2,6};
    if size(ValueDate1,2)>=1&&ischar(ValueDate1)==0&&isnan(ValueDate1)==0
        if size(ValueDate2,2)>=1&&ischar(ValueDate2)==0&&isnan(ValueDate2)==0
            if ValueDate2<ValueDate1
                ValueDate=VecEditors1Temp{n2,5};
                if ValueDate2<=16
                    LowerBound=0;
                    UpperBound=0;
                else
                    if ValueDate2<=46
                        LowerBound=-1;
                        UpperBound=1;
                    else
                        if ValueDate2<=92
                            LowerBound=-3;
                            UpperBound=2;
                        else
                            LowerBound=-6;
                            UpperBound=5;
                        end
                    end
                end
            else
                ValueDate=VecEditors1Temp{n2,3};
                if ValueDate1<=16
                    LowerBound=0;
                    UpperBound=0;
                else
                    if ValueDate1<=46
                        LowerBound=-1;
                        UpperBound=1;
                    else
                        if ValueDate1<=92
                            LowerBound=-3;
                            UpperBound=2;
                        else
                            LowerBound=-6;
                            UpperBound=5;
                        end
                    end
                end
            end
        else
            ValueDate=VecEditors1Temp{n2,3};
            if ValueDate1<=16
                LowerBound=0;
                UpperBound=0;
            else
                if ValueDate1<=46
                    LowerBound=-1;
                    UpperBound=1;
                else
                    if ValueDate1<=92
                        LowerBound=-3;
                        UpperBound=2;
                    else
                        LowerBound=-6;
                        UpperBound=5;
                    end
                end
            end
        end
    else
        if size(ValueDate2,2)>=1&&ischar(ValueDate2)==0&&isnan(ValueDate2)==0
            ValueDate=VecEditors1Temp{n2,5};
            if ValueDate2<=16
                LowerBound=0;
                UpperBound=0;
            else
                if ValueDate2<=46
                    LowerBound=-1;
                    UpperBound=1;
                else
                    if ValueDate2<=92
                        LowerBound=-3;
                        UpperBound=2;
                    else
                        LowerBound=-6;
                        UpperBound=5;
                    end
                end
            end
        else
            ValueDate='';
        end
    end
    VecGroupCoAuthors=[];
    nArticlePublished=[];
    nCoAuthors=[];
    ValueResultsPhD=[];
    VecResultsTotal=[];
    VecResultsOriginal=[];
    VecResultsReview=[];
    VecCoAuthorsBefore=[];
    VecCoAuthorsEditor=[];
    VecJournalEditorAfter=[];
    VecResultsArticleTemp3=[];
    ValueFile=['ResultsCharacteristicsEditor' num2str(n2) '.mat'];
    ValueFileTemp=dir([ValueFolder2 ValueFile]);
    if size(ValueFileTemp,1)==0
        if size(ValueDate,2)>1
            ValueTemp2=find(ValueDate=='/');
            ValueYearEditor=str2num(ValueDate(1,ValueTemp2(1,end)+1:end));
            if size(ValueTemp2,2)>1
                ValueMonthEditor=str2num(ValueDate(1,ValueTemp2(1,end-1)+1:ValueTemp2(1,end)-1));
            else
                ValueMonthEditor=str2num(ValueDate(1,1:ValueTemp2(1,end)-1));
            end
            LowerBoundMonth=ValueMonthEditor+LowerBound;
            UpperBoundMonth=ValueMonthEditor+UpperBound;
            [VecGroupCoAuthors,nArticlePublished,nCoAuthors,ValueResultsPhD,VecResultsTotal,VecResultsOriginal,VecResultsReview,VecCoAuthorsBefore,VecCoAuthorsEditor,VecJournalEditorAfter,VecResultsArticleTemp3]=FilterAuthors2(ValueFolder,n2,ValueYearEditor,LowerBoundMonth,VecEditors1Temp,VecSpecialCharacters);
        end
        ValueFile=['ResultsCharacteristicsEditor' num2str(n2) '.mat'];
        save([ValueFolder2 ValueFile],'VecGroupCoAuthors','nCoAuthors','VecResultsTotal','VecResultsOriginal','VecResultsReview','VecCoAuthorsBefore','VecCoAuthorsEditor','VecJournalEditorAfter','nArticlePublished','ValueResultsPhD','VecResultsArticleTemp3','-v7.3');
    end
    ValueClock=clock;
    disp(['End of the processing at ' num2str(ValueClock(1,4)) ':' num2str(ValueClock(1,5)) ':' num2str(ValueClock(1,6)) ' for editor ' num2str(n2)]);
%     if n2==2
%         return
%     end
end